Imports ModuloAdministraciondeEnvios.DataAccessLayer
Imports ModuloAdministraciondeEnvios.BusinessLogicLayer


Namespace PresentationLayer
    Public Class FrmPrincipal

        Private Sub FrmPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


            'Me.IsMdiContainer = True

            Dim menuItem1 As New MenuItem
            Dim menuItem2 As New MenuItem
            Dim menuitem3 As New MenuItem
            Dim menuitem4 As New MenuItem
            Dim menuitem5 As New MenuItem
            Dim menuitem6 As New MenuItem

            menuItem1.Text = "Envios"
            menuItem2.Text = "Reportes"
            menuitem3.Text = "Seguridad"
            menuitem4.Text = "Backups"
            menuitem5.Text = "Clientes"


            menuItem1.MenuItems.Add("Admistracion de Envios", New EventHandler(AddressOf AgregarEnvios))
            menuItem1.MenuItems.Add("Despachar Envios", New EventHandler(AddressOf DespacharEnvios))
            menuItem1.MenuItems.Add("Informe por Estado y Fecha", New EventHandler(AddressOf ListarEnviosPorEstado))
            menuItem1.MenuItems.Add("Informe por Fechas", New EventHandler(AddressOf ListarEnviosPorFecha))

            menuItem2.MenuItems.Add("Reportes 1", New EventHandler(AddressOf Reporte1))
            menuItem2.MenuItems.Add("Reportes 2", New EventHandler(AddressOf Reporte2))

            menuitem3.MenuItems.Add("Roles", New EventHandler(AddressOf AdministracionRoles))
            menuitem3.MenuItems.Add("Usuario", New EventHandler(AddressOf AdministracionUsuarios))

            menuitem4.MenuItems.Add("Backup", New EventHandler(AddressOf BackupsDB))

            menuitem5.MenuItems.Add("Clientes", New EventHandler(AddressOf Clientes))

            Dim mainMenu1 As New MainMenu(New MenuItem() {menuItem1, menuItem2, menuitem3, menuitem4, menuitem5, menuitem6})
            Menu = mainMenu1


        End Sub



        Protected Sub AgregarEnvios(ByVal sender As System.Object, ByVal e As System.EventArgs)

            Me.WindowState = FormWindowState.Maximized
            Dim FrmEnvios As New FrmEnvios
            FrmEnvios.Show()
            FrmEnvios.Activate()
         
        End Sub
        Protected Sub DespacharEnvios(ByVal sender As System.Object, ByVal e As System.EventArgs)

            Me.WindowState = FormWindowState.Maximized
            Dim FrmDespacharEnvios As New FrmDespacharEnvios
            FrmDespacharEnvios.Show()
            FrmDespacharEnvios.Activate()

        End Sub
        Protected Sub ListarEnviosPorEstado(ByVal sender As System.Object, ByVal e As System.EventArgs)
        End Sub
        Protected Sub ListarEnviosPorFecha(ByVal sender As System.Object, ByVal e As System.EventArgs)
        End Sub

        Protected Sub Reporte1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        End Sub
        Protected Sub Reporte2(ByVal sender As System.Object, ByVal e As System.EventArgs)
        End Sub
        Protected Sub AdministracionRoles(ByVal sender As System.Object, ByVal e As System.EventArgs)
        End Sub
        Protected Sub AdministracionUsuarios(ByVal sender As System.Object, ByVal e As System.EventArgs)
        End Sub
        Protected Sub BackupsDB(ByVal sender As System.Object, ByVal e As System.EventArgs)
        End Sub

        Protected Sub Clientes(ByVal sender As System.Object, ByVal e As System.EventArgs)
            Me.WindowState = FormWindowState.Maximized
            Dim FrmAdministraClientes As New FrmClientes
            FrmAdministraClientes.Show()
            FrmAdministraClientes.Activate()
        End Sub


    End Class
End Namespace